Metadata from IPBES on Zenodo

Technical Guideline Series

Abstract

To be added

GitHub Repository

Methods

Setup and get records from Zenodo

#|

# Load the zen4R library
library(zen4R)
library(openalexR)

Thank you for using openalexR!
To acknowledge our work, please cite the package by calling `citation("openalexR")`.
To suppress this message, add `openalexR.message = suppressed` to your .Renviron file.

library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

fn <- file.path("data", "ipbes_zenodo_records")
if (!file.exists(paste0(fn, ".rds"))) {
  # Authenticate with Zenodo
  zen <- ZenodoManager$new(token = Sys.getenv("Zenodo_IPBES_RO"))

  # Get the community ID
  community_id <- "ipbes"

  # Get the community info
  community <- zen$getCommunityById(community_id)

  # Get all deposits with ipbes somwhere
  ipbes_zenodo <- zen$getRecords(community_id)

  # Filter records based on the community ID
  ipbes <- sapply(
    ipbes_zenodo,
    function(record) {
      "ipbes" %in% unlist(record$metadata$communities)
    }
  )

  ipbes_zenodo <- ipbes_zenodo[ipbes]

  rm(ipbes)

  saveRDS(ipbes_zenodo, paste0(fn, ".rds"))
} else {
  ipbes_zenodo <- readRDS(paste0(fn, ".rds"))
}

Get the dois and titles of the records

#|

dois <- data.frame()

for (i in seq(length.out = length(ipbes_zenodo))) {
  record <- ipbes_zenodo[[i]]
  dois <- rbind(
    dois,
    c(
      doi = record$metadata$doi,
      year = record$metadata$publication_date,
      title = record$metadata$title
    )
  )
}

names(dois) <- c("doi", "year", "title")

dois <- tibble::as_tibble(dois)

fn <- file.path(".", "data", "ipbes_works.rds")
if (!file.exists(fn)) {
  # Define the maximum chunk size
  chunk_size <- 50
  # Split the vector into chunks
  doi_chunks <- split(
    dois$doi,
    ceiling(seq_along(dois$doi) / chunk_size)
  )

  ipbes_works <- lapply(
    doi_chunks,
    function(dois) {
      openalexR::oa_query(doi = dois) |>
        openalexR::oa_request(count_only = FALSE)
    }
  ) |>
    unlist(recursive = FALSE)

  saveRDS(ipbes_works, file = fn)
} else {
  ipbes_works <- readRDS(file = fn)
}

Results

Keywords

Number of keywords per Deposit

#|

ipbes_zenodo |>
  sapply(
    FUN = function(x) {
      x$metadata$keywords |>
        unlist() |>
        length()
    }
  ) |>
  table() |>
  knitr::kable(
    col.names = c("Number of keywords", "n")
  )

Number of keywords	n
0	129
1	61
2	44
3	77
4	21
5	10
6	13
7	8
8	1
9	1
10	1

The deposits without keywords

#|

ipbes_zenodo |>
  sapply(
    FUN = function(x) {
      l <- x$metadata$keywords |>
        unlist() |>
        length()
      if (l == 0) {
        result <- list(
          no_keywords = l,
          title = substr(x$title, 1, 60),
          link = paste0("<a href='", x$links$self_html, "' target='_blank'>", x$doi, "</a>")
        )
      } else {
        result <- NULL
      }
      return(result)
    }
  ) |>
  dplyr::bind_rows() |>
  dplyr::arrange(no_keywords, title) |>
  knitr::kable()

no_keywords	title	link
0	Advanced Data Technologies; IPBES & Stakeholders experiences	10.5281/zenodo.8285640
0	Annex I: Glossary of the Global assessment report on biodiv	10.5281/zenodo.5657079
0	Annex I: Glossary of the thematic assessment of the sustaina	10.5281/zenodo.7695781
0	Annex II: Acronyms of the Global assessment report on biodiv	10.5281/zenodo.5657086
0	Bibliography of the Systematic Literature Review of the IPBE	10.5281/zenodo.3603072
0	Conformity report of IPBES assessments with the data and kno	10.5281/zenodo.11613450
0	Figure 7.2 of IPCC-IPBES report - The effects of actions to	10.5281/zenodo.7684121
0	Fraction of global land cover classes (1992 - 2022) - derive	10.5281/zenodo.11407287
0	IPBES Country Borders Package	10.5281/zenodo.5883633
0	IPBES Data Management Workshop for the authors of the Nexus	10.5281/zenodo.7151693
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11580589
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11580478
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11580410
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11577375
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11579457
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11579134
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11578605
0	IPBES First Global assessment – Supplementary materials of C	10.5281/zenodo.11577966
0	IPBES Global Assessment in Linked Open Data format	10.5281/zenodo.10961205
0	IPBES Guide on the production of assessments	10.5281/zenodo.7568075
0	IPBES ICT Portal - Directories - First Global Assessment Rep	10.5281/zenodo.11611394
0	IPBES ICT Portal - Directories - Invasive Alien Species Asse	10.5281/zenodo.10991506
0	IPBES Invasive Alien Species Assessment: Glossary	10.5281/zenodo.10990925
0	IPBES Invasive Alien Species Assessment in Linked Open Data	10.5281/zenodo.10961209
0	IPBES Invasive Alien Species Assessment: Factsheet 1 - Invas	10.5281/zenodo.10057014
0	IPBES Invasive Alien Species Assessment: Factsheet 2 - The r	10.5281/zenodo.11480835
0	IPBES Invasive Alien Species Assessment: Factsheet 3 - Invas	10.5281/zenodo.11480848
0	IPBES Invasive Alien Species Assessment: Factsheet 4 - Biolo	10.5281/zenodo.11480859
0	IPBES Invasive Alien Species Assessment: Factsheet 5 - Invas	10.5281/zenodo.10057036
0	IPBES Invasive Alien Species Assessment: Factsheet 6 - Biolo	10.5281/zenodo.10057038
0	IPBES Invasive Alien Species Assessment: Factsheet 7 - Clima	10.5281/zenodo.11481003
0	IPBES Ontology	10.5281/zenodo.10991405
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 1	10.5281/zenodo.7695767
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 2	10.5281/zenodo.7157620
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 2	10.5281/zenodo.7113807
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 2	10.5281/zenodo.10925297
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 2	10.5281/zenodo.7113821
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 2	10.5281/zenodo.7157632
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.7009684
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.6513754
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.7009671
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.6513724
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.7009691
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.6513849
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.7009678
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.7009689
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.7009697
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.4659812
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.6675754
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 3	10.5281/zenodo.8199042
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 4	10.5281/zenodo.7009702
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 4	10.5281/zenodo.7009709
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 4	10.5281/zenodo.7755793
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 4	10.5281/zenodo.6557077
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 5	10.5281/zenodo.7755792
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 5	10.5281/zenodo.6557145
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 6	10.5281/zenodo.7009855
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 6	10.5281/zenodo.7009854
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 6	10.5281/zenodo.7755787
0	IPBES Sustainable Use of Wild Species Assessment - Chapter 6	10.5281/zenodo.6491902
0	IPBES Sustainable Use of Wild Species Assessment - Summary f	10.5281/zenodo.7009891
0	IPBES TCA Chapter 1. Analysis of contributions on what trans	10.5281/zenodo.12532308
0	IPBES TCA Chapter 1. Analysis of knowledge gaps / IPBES tran	10.5281/zenodo.11657378
0	IPBES TCA Chapter 1. Creation of a case studies database / I	10.5281/zenodo.10260234
0	IPBES TCA Chapter 1. Literature and data review regarding th	10.5281/zenodo.10245400
0	IPBES TCA Chapter 1. Literature review determining the princ	10.5281/zenodo.11657640
0	IPBES TCA Chapter 1. Literature review of case studies with	10.5281/zenodo.10246745
0	IPBES TCA Chapter 2. Content analysis of most potentially tr	10.5281/zenodo.10548648
0	IPBES TCA Chapter 2. Systematic literature review on visions	10.5281/zenodo.10252320
0	IPBES TCA Chapter 3. Identification of on-going initiatives	10.5281/zenodo.10250564
0	IPBES TCA Chapter 3. Review of knowledge on theories and fra	10.5281/zenodo.10250534
0	IPBES TCA Chapter 3. Systematic review of literature on tran	10.5281/zenodo.10523261
0	IPBES TCA Chapter 4. Review of literature on colonial modern	10.5281/zenodo.10250610
0	IPBES TCA Chapter 4. Review of literature on institutional m	10.5281/zenodo.10252251
0	IPBES TCA Chapter 4. Review of literature on limited access	10.5281/zenodo.10251409
0	IPBES TCA Chapter 4. Review of literature on power imbalance	10.5281/zenodo.10251326
0	IPBES TCA Chapter 4. Review of literature on unsustainable c	10.5281/zenodo.10252305
0	IPBES TCA Chapter 5. Shifting power towards just and sustai	10.5281/zenodo.10304954
0	IPBES TCA Chapter 5. Addressing unsustainable production and	10.5281/zenodo.10262310
0	IPBES TCA Chapter 5. Biodiversity conservation assessment me	10.5281/zenodo.10261652
0	IPBES TCA Chapter 5. Capacity building and technology transf	10.5281/zenodo.10262495
0	IPBES TCA Chapter 5. Inventory options for transformative ch	10.5281/zenodo.10264136
0	IPBES TCA Chapter 5. Review of options for achieving the 205	10.5281/zenodo.10262647
0	IPBES TCA Chapter 5. Views and Values / IPBES transformative	10.5281/zenodo.10305489
0	IPBES TCA. Corpus of literature on transformative change / I	10.5281/zenodo.10479548
0	IPBES Technical Guideline Series - Part 11: How to Document	10.5281/zenodo.6882518
0	IPBES Values Assessment in Linked Open Data format	10.5281/zenodo.10961207
0	IPBES delivery protocol of the assessment drafts	10.5281/zenodo.12601070
0	IPBES goes FAIR & CARE! Data and Knowledge Management Policy	10.5281/zenodo.5725706
0	IPBES manual for national focal points (Arabic)	10.5281/zenodo.8031835
0	IPBES manual for national focal points (Chinese)	10.5281/zenodo.8031822
0	IPBES manual for national focal points (Russian)	10.5281/zenodo.8031945
0	IPBES nexus assessment - Chapter 2, data management report	10.5281/zenodo.10119408
0	IPBES nexus assessment - Chapter 2, data management report	10.5281/zenodo.10119473
0	IPBES nexus assessment - Chapter 2, data management report	10.5281/zenodo.10119431
0	IPBES nexus assessment - Chapter 2, data management report	10.5281/zenodo.10119511
0	IPBES nexus assessment - Chapter 3, data management report	10.5281/zenodo.10119540
0	IPBES nexus assessment - Chapter 4, data management report	10.5281/zenodo.10119750
0	IPBES nexus assessment - Chapter 4, data management report	10.5281/zenodo.10119625
0	IPBES nexus assessment - Chapter 5.1 – BIODIVERSITY, data m	10.5281/zenodo.10119872
0	IPBES nexus assessment - Chapter 5.2 – WATER, data manageme	10.5281/zenodo.10119960
0	IPBES nexus assessment - Chapter 5.4 – HEALTH, data managem	10.5281/zenodo.10119986
0	IPBES nexus assessment - Chapter 6, data management report	10.5281/zenodo.10120033
0	IPBES nexus assessment - Chapter 2, data management report 1	10.5281/zenodo.10101030
0	IPBES regions and sub-regions	10.5281/zenodo.5719431
0	Schematic and adapted figures from IPBES Sustainable Use of	10.5281/zenodo.7346791
0	Schematic and adapted figures from IPBES Sustainable Use of	10.5281/zenodo.7009634
0	Schematic and adapted figures from IPBES Sustainable Use of	10.5281/zenodo.7157637
0	Schematic and adapted figures from IPBES Sustainable Use of	10.5281/zenodo.7157617
0	Schematic and adapted figures from IPBES Sustainable Use of	10.5281/zenodo.7009879
0	Schematic and adapted figures from IPBES Sustainable Use of	10.5281/zenodo.7346777
0	Schematic and adapted figures from IPBES Sustainable Use of	10.5281/zenodo.7346782
0	Scientific outcome of the IPBES-IPCC co-sponsored workshop o	10.5281/zenodo.5101125
0	Summary for Policymakers of the Assessment Report on Biodive	10.5281/zenodo.3236099
0	Summary for Policymakers of the Assessment Report on Biodive	10.5281/zenodo.7568205
0	Summary for Policymakers of the Methodological Assessment Re	10.5281/zenodo.7711981
0	Summary for Policymakers of the Methodological Assessment Re	10.5281/zenodo.10026757
0	Summary for Policymakers of the Thematic Assessment Report o	10.5281/zenodo.10118715
0	Summary for Policymakers of the Thematic Assessment Report o	10.5281/zenodo.7664095
0	Summary for Policymakers of the Thematic Assessment Report o	10.5281/zenodo.10785079
0	Summary for policymakers of the global assessment report on	10.5281/zenodo.4049925
0	Summary for policymakers of the thematic assessment of the s	10.5281/zenodo.7411847
0	Summary of conformance of IPBES products with the Data and K	10.5281/zenodo.11613860
0	The IPBES manual for national focal points	10.5281/zenodo.8031803
0	The IPBES methodological assessment of the diverse values an	10.5281/zenodo.10361930
0	The use of indicators in IPBES assessments and other global	10.5281/zenodo.11114273
0	Thematic assessment of the sustainable use of wild species o	10.5281/zenodo.10925382
0	Transparency in science-policy; Data Management at IPBES	10.5281/zenodo.7086662
0	Welcome resources and information for incoming IPBES assessm	10.5281/zenodo.5887668

Keywords used in the deposits

#|

ipbes_zenodo |>
  sapply(
    FUN = function(x) {
      x$metadata$keywords |>
        unlist()
    }
  ) |>
  unlist() |>
  table() |>
  sort(decreasing = TRUE) |>
  knitr::kable(col.names = c("Keyword", "n"))

Keyword	n
IPBES	178
Data management report	47
Assessment	36
data management policy	31
Values Assessment	30
Invasive alien species	27
Global Assessment	20
Supplementary material	19
Europe and Central Asia Assessment	18
Chapter 4	15
Summary for Policymakers	14
Table	13
Chapter 2	12
Figure	11
SPM	11
Full assessment report	9
Values	9
Chapter	8
Chapter 3	8
Chapter 6	7
Chapter 5	6
Regional assessment	6
Africa Assessment	5
Decision	4
Summary for policymakers	4
Biodiversity	3
Chapter 1	3
data and knowledge management policy	3
data management	3
Future	3
ILK	3
Land Degradation and Restoration Assessment	3
Pollination Assessment	3
Scenarios and Models Assessment	3
Valuation	3
Americas Assessment	2
Arabic	2
Asia and the Pacific Assessment	2
Capacities	2
Chinese	2
Data Management	2
Decision-making	2
Diverse	2
FAIR	2
French	2
Just	2
Methods	2
Operationalization	2
Russian	2
Spanish	2
stakeholder engagement	2
survey	2
Sustainable	2
active data management	1
Anthrome	1
Approaches	1
Archetypes	1
Biocultural conservation	1
Biome	1
Brightspot cases	1
CARE	1
CARE principles	1
Climate change	1
Climate Change	1
Conceptualization	1
Constitutions	1
COVID-19	1
Data and knowledge management policy	1
data backup	1
Data Management Policy	1
Data Management Report, Nature Futures Framework	1
Data Policy	1
Dataset	1
Decision making	1
Diverse values	1
DOI	1
Earth Stewardship	1
FAIR principles	1
Gap	1
global, species rarity, endemicity	1
Indicators	1
Indigenous Peoples and local communities	1
IPBES, Data Management Policy	1
IPBES, Senckenberg, Data Management, Policy, FAIR	1
IPBES, Values, Assessment, Figures, Chapter 1	1
IPBES, Values, SPM, Values	1
IPCC	1
IPCCC	1
Knowledge Management	1
long-term vision	1
Methodological	1
Methodological guidance	1
Methodologies	1
Model	1
Nature	1
Nature Futures Framework	1
open science	1
Option	1
Pandemics	1
Pathway	1
Plural Value Approach	1
Policy	1
Policy initiatives	1
Policy instruments	1
Pollination assessment	1
Scenario	1
scenarios, biodiversity, ecosystem services, nature’s contributions to people, nature futures, IPBES, visioning, narratives	1
Science-Policy	1
Stakeholder Survey	1
Transformative change	1
Transformative governance	1
VA	1
Values assessment	1
Zenodo	1

Licenses and Access

Licenses

#|

ipbes_zenodo |>
  sapply(
    FUN = function(x) {
      l <- x$metadata$license
      if (is.null(l)) {
        l <- "NULL"
      }
      return(l)
    }
  ) |>
  unlist() |>
  table(useNA = "always") |>
  knitr::kable(
    col.names = c(
      "license",
      "n"
    )
  )

license	n
cc-by-4.0	346
NULL	20
NA	0

The deposits without licenses are

#|

ipbes_zenodo |>
  sapply(
    FUN = function(x) {
      if (is.null(x$metadata$license)) {
        result <- list(
          title = substr(x$title, 1, 60),
          link = paste0("<a href='", x$links$self_html, "' target='_blank'>", x$doi, "</a>")
        )
      } else {
        result <- NULL
      }
      return(result)
    }
  ) |>
  dplyr::bind_rows() |>
  dplyr::arrange(title) |>
  knitr::kable()

title	link
2020 Stakeholder Survey of the Intergovernmental Platform on	10.5281/zenodo.4121916
DISCARD_IPBES Invasive Alien Species Assessment: Chapter 2.	10.5281/zenodo.10052573
Hotspots of endemism and rarity - Figure 2.2.3 IPBES Global	10.5281/zenodo.4957887
IPBES Core Indicators - Harmonized Dataset	10.5281/zenodo.4564763
IPBES Country Borders Package	10.5281/zenodo.5883633
IPBES IAS assessment, data management report for Chapter 2.	10.5281/zenodo.5746076
IPBES Invasive Alien Species Assessment: Chapter 1. Figures,	10.5281/zenodo.10622445
IPBES Invasive Alien Species Assessment: Chapter 1. Introduc	10.5281/zenodo.10677041
IPBES Invasive Alien Species Assessment: Chapter 2. Trends a	10.5281/zenodo.10677067
IPBES Invasive Alien Species Assessment: Chapter 3. Drivers	10.5281/zenodo.10677074
IPBES Invasive Alien Species Assessment: Chapter 3. Figures,	10.5281/zenodo.10627673
IPBES Invasive Alien Species Assessment: Chapter 4. Figures,	10.5281/zenodo.10633229
IPBES Invasive Alien Species Assessment: Chapter 4. Impacts	10.5281/zenodo.10677193
IPBES Invasive Alien Species Assessment: Chapter 5. Figures,	10.5281/zenodo.10633264
IPBES Invasive Alien Species Assessment: Chapter 5. Manageme	10.5281/zenodo.11437851
IPBES Invasive Alien Species Assessment: Chapter 6. Figures,	10.5281/zenodo.10633484
IPBES Invasive Alien Species Assessment: Chapter 6. Governan	10.5281/zenodo.10677227
IPBES Invasive Alien Species Assessment: Full report	10.5281/zenodo.11629357
IPBES Long-term Vision on Data and Knowledge Management	10.5281/zenodo.5513474
Interactive Dashboard of the 2020 Stakeholder Survey of the	10.5281/zenodo.5046948

Access Rights

#|

ipbes_zenodo |>
  sapply(
    FUN = function(x) {
      x$metadata$access_right
    }
  ) |>
  table(useNA = "always") |>
  knitr::kable(
    col.names = c(
      "access right",
      "n"
    )
  )

access right	n
embargoed	2
open	320
restricted	44
NA	0

The non-open deposits are:

#|

ipbes_zenodo |>
  sapply(
    FUN = function(x) {
      if (x$metadata$access_right != "open") {
        result <- list(
          title = substr(x$title, 1, 60),
          access_right = x$metadata$access_right,
          link = paste0("<a href='", x$links$self_html, "' target='_blank'>", x$doi, "</a>")
        )
      } else {
        result <- NULL
      }
      return(result)
    }
  ) |>
  dplyr::bind_rows() |>
  dplyr::arrange(title) |>
  knitr::kable()

title	access_right	link
2020 Stakeholder Survey of the Intergovernmental Platform on	restricted	10.5281/zenodo.4121916
DISCARD_IPBES Invasive Alien Species Assessment: Chapter 2.	restricted	10.5281/zenodo.10052573
Hotspots of endemism and rarity - Figure 2.2.3 IPBES Global	restricted	10.5281/zenodo.4957887
IPBES Core Indicators - Harmonized Dataset	restricted	10.5281/zenodo.4564763
IPBES Country Borders Package	restricted	10.5281/zenodo.5883633
IPBES IAS assessment, data management report for Chapter 2.	restricted	10.5281/zenodo.5746076
IPBES Invasive Alien Species Assessment, data management rep	embargoed	10.5281/zenodo.5766070
IPBES Invasive Alien Species Assessment, database for Chapte	embargoed	10.5281/zenodo.5706617
IPBES Long-term Vision on Data and Knowledge Management	restricted	10.5281/zenodo.5513474
IPBES TCA Chapter 1. Analysis of contributions on what trans	restricted	10.5281/zenodo.12532308
IPBES TCA Chapter 1. Analysis of knowledge gaps / IPBES tran	restricted	10.5281/zenodo.11657378
IPBES TCA Chapter 1. Creation of a case studies database / I	restricted	10.5281/zenodo.10260234
IPBES TCA Chapter 1. Literature and data review regarding th	restricted	10.5281/zenodo.10245400
IPBES TCA Chapter 1. Literature review determining the princ	restricted	10.5281/zenodo.11657640
IPBES TCA Chapter 1. Literature review of case studies with	restricted	10.5281/zenodo.10246745
IPBES TCA Chapter 2. Content analysis of most potentially tr	restricted	10.5281/zenodo.10548648
IPBES TCA Chapter 2. Systematic literature review on visions	restricted	10.5281/zenodo.10252320
IPBES TCA Chapter 3. Identification of on-going initiatives	restricted	10.5281/zenodo.10250564
IPBES TCA Chapter 3. Review of knowledge on theories and fra	restricted	10.5281/zenodo.10250534
IPBES TCA Chapter 3. Systematic review of literature on tran	restricted	10.5281/zenodo.10523261
IPBES TCA Chapter 4. Review of literature on colonial modern	restricted	10.5281/zenodo.10250610
IPBES TCA Chapter 4. Review of literature on institutional m	restricted	10.5281/zenodo.10252251
IPBES TCA Chapter 4. Review of literature on limited access	restricted	10.5281/zenodo.10251409
IPBES TCA Chapter 4. Review of literature on power imbalance	restricted	10.5281/zenodo.10251326
IPBES TCA Chapter 4. Review of literature on unsustainable c	restricted	10.5281/zenodo.10252305
IPBES TCA Chapter 5. Shifting power towards just and sustai	restricted	10.5281/zenodo.10304954
IPBES TCA Chapter 5. Addressing unsustainable production and	restricted	10.5281/zenodo.10262310
IPBES TCA Chapter 5. Biodiversity conservation assessment me	restricted	10.5281/zenodo.10261652
IPBES TCA Chapter 5. Capacity building and technology transf	restricted	10.5281/zenodo.10262495
IPBES TCA Chapter 5. Inventory options for transformative ch	restricted	10.5281/zenodo.10264136
IPBES TCA Chapter 5. Review of options for achieving the 205	restricted	10.5281/zenodo.10262647
IPBES TCA Chapter 5. Views and Values / IPBES transformative	restricted	10.5281/zenodo.10305489
IPBES TCA. Corpus of literature on transformative change / I	restricted	10.5281/zenodo.10479548
IPBES nexus assessment - Chapter 2, data management report	restricted	10.5281/zenodo.10119408
IPBES nexus assessment - Chapter 2, data management report	restricted	10.5281/zenodo.10119473
IPBES nexus assessment - Chapter 2, data management report	restricted	10.5281/zenodo.10119431
IPBES nexus assessment - Chapter 2, data management report	restricted	10.5281/zenodo.10119511
IPBES nexus assessment - Chapter 3, data management report	restricted	10.5281/zenodo.10119540
IPBES nexus assessment - Chapter 4, data management report	restricted	10.5281/zenodo.10119750
IPBES nexus assessment - Chapter 4, data management report	restricted	10.5281/zenodo.10119625
IPBES nexus assessment - Chapter 5.1 – BIODIVERSITY, data m	restricted	10.5281/zenodo.10119872
IPBES nexus assessment - Chapter 5.2 – WATER, data manageme	restricted	10.5281/zenodo.10119960
IPBES nexus assessment - Chapter 5.4 – HEALTH, data managem	restricted	10.5281/zenodo.10119986
IPBES nexus assessment - Chapter 6, data management report	restricted	10.5281/zenodo.10120033
IPBES nexus assessment - Chapter 2, data management report 1	restricted	10.5281/zenodo.10101030
Interactive Dashboard of the 2020 Stakeholder Survey of the	restricted	10.5281/zenodo.5046948

IPBES Deposits Network

fn <- file.path("data", "ipbes_network.rds")

if (!file.exists(fn)) {
  relations <- lapply(
    ipbes_zenodo,
    function(rec) {
      relation <- rec$metadata$related_identifiers
      if (is.null(relation)) {
        return(NULL)
      }
      result <- rec$metadata$related_identifiers |>
        dplyr::bind_rows() |>
        dplyr::mutate(
          year = rec$metadata$publication_date,
          doi = rec$metadata$doi,
          title = rec$metadata$title,
          keywords = rec$metadata$keywords |>
            unlist() |>
            paste(collapse = "; "),
        )
      return(result)
    }
  ) |>
    dplyr::bind_rows() |>
    dplyr::left_join(
      y = read.table("inst/relation_direction.txt", header = TRUE),
      by = "relation"
    )

  nodes <- unique(
    c(
      relations$doi,
      relations$identifier
    )
  )

  edges <- rbind(
    relations |>
      filter(
        direction == "to"
      ) |>
      dplyr::select(
        from = doi,
        to = identifier
      ),
    relations |>
      filter(
        direction == "from"
      ) |>
      dplyr::select(
        from = doi,
        to = identifier
      )
  )

  network <- list(
    nodes = nodes,
    edges = edges
  )

  ipbes_network <- list(
    nodes = nodes,
    edges = edges,
    relations = relations
  )
  rm(nodes, edges, relations)

  saveRDS(ipbes_network, fn)
} else {
  ipbes_network <- readRDS(fn)
}

fn <- file.path("figures", "ipbes_network.html")

## Simple forceNetwork
networkData <- data.frame(
  src = ipbes_network$edges$from,
  target = ipbes_network$edges$to,
  stringsAsFactors = FALSE
)

nodes <- data.frame(
  name = ipbes_network$nodes,
  # title = ipbes_network$nodes$,
  # doi = ipbes_network$nodes$doi,
  stringsAsFactors = FALSE
)

nodes$id <- 0:(nrow(nodes) - 1)

# create a data frame of the edges that uses id 0:9 instead of their names
edges <- networkData |>
  left_join(nodes, by = c("src" = "name")) |>
  select(-src) |>
  rename(source = id) |>
  left_join(nodes, by = c("target" = "name")) |>
  select(-target) |>
  rename(target = id) |>
  mutate(width = 1)

# # make a grouping variable that will match to colours
nodes$group <- 1

# nodes$oa_id <- nodes$name
# nodes$name <- nodes$author

# control colours with a JS ordinal scale
# ColourScale <- 'd3.scaleOrdinal()
#                         .domain(["key_paper", "other"])
#                      .range(["#FF6900", "#694489"]);'

openDOI <- "window.open(d.doi)"

nwg <- networkD3::forceNetwork(
  Links = edges,
  Nodes = nodes,
  Source = "source",
  Target = "target",
  NodeID = "name",
  # Nodesize = "nodesize",
  Group = "group",
  # Value = "width",
  opacity = 0.9,
  zoom = TRUE,
  # colourScale = DT::JS(ColourScale),
  fontSize = 20,
  legend = TRUE,
  clickAction = openDOI
)

nwg$x$nodes$doi <- nodes$doi

networkD3::saveNetwork(
  nwg,
  file = fn,
  selfcontained = TRUE
)

unlink(
  gsub(
    fn,
    pattern = "\\.html",
    replacement = "_files"
  ),
  recursive = TRUE,
  force = TRUE
)


nwg

IPBES Deposits Network

#|

ipbes_network$relations |>
  dplyr::select(
    year,
    doi,
    relation,
    identifier,
    direction,
    title,
    keywords
  ) |>
  IPBES.R::table_dt(
    fixedColumns = list(leftColumns = 6)
  )

IPBES deposits on Zenodo with OpenAlex ids

This is a quick and dirty table - it could made nicer - but it fulfills it’s purpose.

ipbes_works |>
  openalexR::works2df() |>
  dplyr::select(
    # year = publication_year,
    # title,
    doi,
    oa_id = id
  ) |>
  dplyr::mutate(
    doi = gsub(pattern = "https://doi.org/", replacement = "", x = doi)
  ) |>
  dplyr::left_join(
    x = dois,
    by = c("doi" = "doi")
  ) |>
  dplyr::mutate(
    doi = paste0("<a href='https://doi.org/", doi, "' target='_blank'>", doi, "</a>"),
    oa_id = ifelse(
      is.na(oa_id),
      "",
      paste0("<a href='", oa_id, "' target='_blank'>", gsub(pattern = "https://openalex.org/", replacement = "", oa_id), "</a>")
    )
  ) |>
  select(
    doi,
    oa_id,
    year,
    title
  ) |>
  IPBES.R::table_dt()